home *** CD-ROM | disk | FTP | other *** search
- property pMySprite, pMyMember, pMyMember2, pMyMember3
-
- on beginSprite me
- pMySprite = sprite(me.spriteNum)
- pMyMember = pMySprite.memberNum
- pMyMember2 = pMyMember - 1
- pMyMember3 = pMyMember + 1
- end
-
- on mouseEnter me
- set the memberNum of sprite pMySprite to pMyMember3
- case the currentSpriteNum of
- "85":
- put "Edit the selected pattern." into field "status"
- "86":
- put "Delete the selected pattern." into field "status"
- end case
- end
-
- on mouseLeave me
- set the memberNum of sprite pMySprite to pMyMember
- put EMPTY into field "status"
- end
-
- on mouseDown me
- repeat while the mouseDown
- set the memberNum of sprite pMySprite to pMyMember2
- updateStage()
- end repeat
- end
-
- on mouseUp me
- set the memberNum of sprite pMySprite to pMyMember3
- case the currentSpriteNum of
- "85":
- edit1bitPattern()
- "86":
- delete1bitPattern()
- end case
- end
-